unit U_basico;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, RXCtrls, Mask, ToolEdit, CurrEdit;

type
  TF_basico = class(TForm)
    Panel1: TPanel;
    B_gravar: TBitBtn;
    B_alterar: TBitBtn;
    B_inserir: TBitBtn;
    B_cancelar: TBitBtn;
    B_excluir: TBitBtn;
    B_buscar: TBitBtn;
    B_sair: TBitBtn;
    B_primeiro: TBitBtn;
    B_voltar: TBitBtn;
    B_avancar: TBitBtn;
    B_ultimo: TBitBtn;
    E_Codigo: TRxCalcEdit;
    RxLabel1: TRxLabel;
    procedure B_sairClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_basico: TF_basico;

implementation

{$R *.dfm}

procedure TF_basico.B_sairClick(Sender: TObject);
begin
  close;
end;

procedure TF_basico.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

end.
